(archive-extract): Use second argument of

view-buffer instead of setting view-exit-action.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ea42ecbcb0a75ad35a01ebc640f2a1b5996f39dc..2fcb7c602e6e89d7cd5bde2a97ec916cf4477583 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -752,9 +752,7 @@ This function changes the set of information shown for each files."
          (run-hooks 'archive-extract-hooks))
        (archive-maybe-update t))
       (if view-p
-          (progn
-            (view-buffer buffer)
-            (and just-created (setq view-exit-action 'kill-buffer)))
+         (view-buffer buffer (and just-created 'kill-buffer))
         (if (eq other-window-p 'display)
             (display-buffer buffer)
           (if other-window-p